409
|
How can I display a different caption in the label area

with AxComboBox1 do
begin
BeginUpdate();
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
HeaderVisible := False;
SingleEdit := True;
SearchColumnIndex := -1;
AdjustSearchColumn := False;
(Columns.Add('Language') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
with Items do
begin
AddItem('English');
AddItem('Hebrew');
AddItem('Spanish');
end;
LabelText := ' <b>custom</b> text ';
EndUpdate();
end
|
160
|
How can I display a custom size picture to a cell or item

with AxComboBox1 do
begin
DefaultItemHeight := 48;
Columns.Add('C1');
with Items do
begin
CellPicture[TObject(AddItem('Text')),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end;
end
|
210
|
How can I display a computed column and highlight some values that are negative or less than a value

with AxComboBox1 do
begin
Columns.Add('A');
Columns.Add('B');
(Columns.Add('(A+B)*1.19') as EXCOMBOBOXLib.Column).ComputedField := '(%0 + %1) * 1.19';
with Items do
begin
CellCaption[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
end;
with Items do
begin
CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
end;
var_ConditionalFormat := ConditionalFormats.Add('%2 > 10',Nil);
with var_ConditionalFormat do
begin
Bold := True;
ForeColor := $ff;
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum($2);
end;
end
|
276
|
How can I display a button inside the item or cell

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := ' Button 1 ';
CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
CellHasButton[TObject(h),TObject(1)] := True;
h := AddItem('Cell 2');
CellCaption[TObject(h),TObject(1)] := ' Button 2 ';
CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
CellHasButton[TObject(h),TObject(1)] := True;
end;
end
|
203
|
How can I customize the items being displayed in the drop down filter window

with AxComboBox1 do
begin
with (Columns.Add('Custom Filter') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
CustomFilter := 'Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.t' +
'xt|*.log';
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := '*.xls';
end;
Items.AddItem('excel.xls');
Items.AddItem('word.doc');
Items.AddItem('pp.pps');
Items.AddItem('text.txt');
ApplyFilter();
end
|
549
|
How can I create a new ADO recordset

with AxComboBox1 do
begin
BeginUpdate();
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADODB.Recordset')) as ADODB.Recordset);
with rs do
begin
Fields.Append('A',8,Nil,Nil,Nil);
Fields.Append('B',8,Nil,Nil,Nil);
Open(Nil,Nil,Nil,Nil,Nil);
AddNew(Nil,Nil);
Fields.Item['A'].Value := 'Item A.1';
Fields.Item['B'].Value := 'Item B.1';
Update(Nil,Nil);
AddNew(Nil,Nil);
Fields.Item['A'].Value := 'Item A.2';
Fields.Item['B'].Value := 'Item B.2';
Update(Nil,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Value := 'Item A.1';
EndUpdate();
end
|
372
|
How can I convert the expression to a string so I can look into the date string expression for month's name

with AxComboBox1 do
begin
Columns.Add('Number');
(Columns.Add('Str') as EXCOMBOBOXLib.Column).ComputedField := 'str(%0) + '' AA''';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
427
|
How can I collapse all items

with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[0] := False;
end;
EndUpdate();
end
|
340
|
How can I close the drop down window when user double clicks it

with AxComboBox1 do
begin
CloseOnDblClk := True;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
TreeColumnIndex := 1;
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
h := AddItem('Root 1.1');
CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
ExpandItem[h] := True;
h := AddItem('Root 2.1');
CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
end;
end
|
384
|
How can I check the hour part only so I know it was afternoon

with AxComboBox1 do
begin
ConditionalFormats.Add('hour(%0)>=12',Nil).Bold := True;
Columns.Add('Date');
(Columns.Add('Hour') as EXCOMBOBOXLib.Column).ComputedField := 'hour(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
4
|
How can I change/rename the column's name

with AxComboBox1 do
begin
(Columns.Add('ColumnName') as EXCOMBOBOXLib.Column).Caption := 'NewName';
end
|
134
|
How can I change the width of the columns being displayed in the sort bar

with AxComboBox1 do
begin
SortBarVisible := True;
SortBarColumnWidth := 48;
(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
end
|
510
|
How can I change the visual appearance of the filter bar's close button (solid)

with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$ff);
EndUpdate();
end
|
511
|
How can I change the visual appearance of the filter bar's close button (EBN)

with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj' +
'yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS' +
'ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO' +
'icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D' +
'YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA' +
'iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ' +
'DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0' +
'TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk' +
'jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM' +
'RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ' +
'HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ');
end;
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$1000000);
EndUpdate();
end
|
131
|
How can I change the visual appearance of the control's sort bar, using EBN files

with AxComboBox1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
SortBarVisible := True;
(GetOcx() as EXCOMBOBOXLib.ComboBox).BackColorSortBar := $1000000;
(GetOcx() as EXCOMBOBOXLib.ComboBox).BackColorSortBarCaption := $2000000;
Appearance := EXCOMBOBOXLib.AppearanceEnum.None2;
end
|
499
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(3,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' +
'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' +
'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' +
'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
Add(1,'CP:3 -2 -2 2 2');
Add(4,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' +
'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' +
'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' +
'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
Add(2,'CP:4 -2 -2 2 2');
end;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
HasButtons := EXCOMBOBOXLib.ExpandButtonEnum.exCustom;
set_HasButtonsCustom(False,16777216);
set_HasButtonsCustom(True,33554432);
Columns.Add('Column');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child');
end;
EndUpdate();
end
|
498
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'XP:TREEVIEW 2 1');
Add(2,'XP:TREEVIEW 2 2');
end;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphOpen,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphClose,$2000000);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Column');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child');
end;
EndUpdate();
end
|
496
|
How can I change the visual appearance of the +/- buttons (method 1)

with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' +
'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' +
'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' +
'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
Add(2,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' +
'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' +
'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' +
'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
end;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphOpen,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphClose,$2000000);
Columns.Add('Column');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child');
end;
EndUpdate();
end
|
275
|
How can I change the state of a radio button

with AxComboBox1 do
begin
MarkSearchColumn := False;
SelBackColor := Color.FromArgb(255,255,128);
SelForeColor := Color.FromArgb(0,0,0);
Columns.Add('C1');
Columns.Add('C2');
Columns.Add('C3');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Radio 1';
CellHasRadioButton[TObject(h),TObject(1)] := True;
CellRadioGroup[TObject(h),TObject(1)] := 1234;
CellCaption[TObject(h),TObject(2)] := 'Radio 2';
CellHasRadioButton[TObject(h),TObject(2)] := True;
CellRadioGroup[TObject(h),TObject(2)] := 1234;
CellState[TObject(h),TObject(1)] := 1;
end;
end
|
273
|
How can I change the state of a checkbox

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Check Box';
CellHasCheckBox[TObject(h),TObject(1)] := True;
CellState[TObject(h),TObject(1)] := 1;
end;
end
|
132
|
How can I change the sort bar's foreground color

with AxComboBox1 do
begin
SortBarVisible := True;
ForeColorSortBar := Color.FromArgb(255,0,0);
end
|
130
|
How can I change the sort bar's background color

with AxComboBox1 do
begin
SortBarVisible := True;
BackColorSortBar := Color.FromArgb(255,0,0);
BackColorSortBarCaption := Color.FromArgb(128,0,0);
end
|
289
|
How can I change the size ( width, height ) of the picture

with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
CellPictureWidth[TObject(h),TObject(0)] := 24;
CellPictureHeight[TObject(h),TObject(0)] := 24;
ItemHeight[h] := 32;
h := AddItem('Root 2');
CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
ItemHeight[h] := 48;
end;
end
|
32
|
How can I change the position of the column

with AxComboBox1 do
begin
Columns.Add('Column 1');
(Columns.Add('Column 2') as EXCOMBOBOXLib.Column).Position := 0;
end
|
298
|
How can I change the position of an item

with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
ItemPosition[AddItem('Item 3')] := 0;
end;
end
|
202
|
How can I change the order or the position of the columns in the sort bar

with AxComboBox1 do
begin
SortBarVisible := True;
SortBarColumnWidth := 48;
(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
Columns.Item['C2'].SortPosition := 0;
end
|
48
|
How can I change the name of the week days in the drop down calendar window, being displayed when I filter items between dates

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterDate := True;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateWeekDays,'Du Lu Ma Mi Jo Vi Si');
ApplyFilter();
end
|
47
|
How can I change the name of the months in the drop down calendar window, being displayed when I filter items between dates

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterDate := True;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateMonths,'Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre');
ApplyFilter();
end
|
133
|
How can I change the height of the sort bar's

with AxComboBox1 do
begin
SortBarVisible := True;
SortBarHeight := 48;
end
|
252
|
How can I change the height for all items

with AxComboBox1 do
begin
DefaultItemHeight := 32;
Columns.Add('Column');
Items.AddItem('One');
Items.AddItem('Two');
end
|
124
|
How can I change the header's background color, when multiple levels are displayed

with AxComboBox1 do
begin
BackColorLevelHeader := Color.FromArgb(250,0,0);
(Columns.Add('S') as EXCOMBOBOXLib.Column).Width := 32;
(Columns.Add('Level 1') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 2') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 3') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
end
|
344
|
How can I change the foreground color for edit controls

with AxComboBox1 do
begin
ForeColorEdit := Color.FromArgb(255,0,0);
IntegralHeight := True;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
TreeColumnIndex := 1;
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
h := AddItem('Root 1.1');
CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
ExpandItem[h] := True;
h := AddItem('Root 2.1');
CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
end;
set_Select(TObject(0),'Root 1.1');
end
|
215
|
How can I change the foreground color for all cells in the column

with AxComboBox1 do
begin
var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
with var_ConditionalFormat do
begin
ForeColor := $ff;
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
end;
Columns.Add('Column');
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
424
|
How can I change the foreground color for a particular column

with AxComboBox1 do
begin
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor] := TObject(8439039);
Add('Column 3');
end;
end
|
300
|
How can I change the font for entire item
with AxComboBox1 do
begin
Columns.Add('Default');
Items.AddItem('default font');
f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
with f do
begin
Name := 'Tahoma';
Size := 12;
end;
with Items do
begin
ItemFont[AddItem('new font')] := (f as stdole.StdFont);
end;
end
|
217
|
How can I change the font for all cells in the entire column

with AxComboBox1 do
begin
f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
with f do
begin
Name := 'Tahoma';
Size := 12;
end;
with ConditionalFormats.Add('1',Nil) do
begin
Font := (f as stdole.StdFont);
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
end;
Columns.Add('Column');
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
302
|
How can I change the font for a cell

with AxComboBox1 do
begin
Columns.Add('Default');
Items.AddItem('std font');
with Items do
begin
CellCaptionFormat[TObject(AddItem('this <font tahoma;12>is a bit of text with</font> a different font')),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
end;
end
|
301
|
How can I change the font for a cell

with AxComboBox1 do
begin
Columns.Add('Default');
Items.AddItem('default font');
f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
with f do
begin
Name := 'Tahoma';
Size := 12;
end;
with Items do
begin
CellFont[TObject(AddItem('new font')),TObject(0)] := (f as stdole.StdFont);
end;
end
|
129
|
How can I change the default caption being displayed in the control's sort bar

with AxComboBox1 do
begin
SortBarVisible := True;
SortBarCaption := 'new caption';
end
|
95
|
How can I change the control's font

with AxComboBox1 do
begin
Font.Name := 'Tahoma';
Columns.Add('Column');
end
|
13
|
How can I change the column's width

with AxComboBox1 do
begin
ColumnAutoResize := False;
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Width := 64;
(Columns.Add('Column 2') as EXCOMBOBOXLib.Column).Width := 128;
end
|
455
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

with AxComboBox1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with ConditionalFormats.Add('1',Nil) do
begin
Bold := True;
ForeColor := $ff;
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum($1);
end;
Columns.Add('C1');
with (Columns.Add('C2') as EXCOMBOBOXLib.Column) do
begin
HeaderBold := True;
HTMLCaption := '<fgcolor=FF0000>C2';
end;
with Items do
begin
CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(11);
CellCaption[TObject(AddItem(TObject(12))),TObject(1)] := TObject(13);
end;
EndUpdate();
end
|
314
|
How can I change the color for separator / dividers items

with AxComboBox1 do
begin
MarkSearchColumn := False;
TreeColumnIndex := -1;
ScrollBySingleLine := False;
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
h := AddItem(Nil);
ItemDivider[h] := 0;
ItemDividerLine[h] := EXCOMBOBOXLib.DividerLineEnum.DoubleDotLine;
ItemDividerLineAlignment[h] := EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter;
ItemHeight[h] := 6;
SelectableItem[h] := False;
h := AddItem('Cell 2');
CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
end;
end
|
359
|
How can I change the background color or the visual appearance using ebn for a particular column

with AxComboBox1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(16777216);
(Add('Column 3') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(16777471);
Add('Column 4');
end;
end
|
407
|
How can I change the background color for the filter field in the bottom part of the drop down portion

with AxComboBox1 do
begin
BeginUpdate();
FilterForVisible := True;
FilterForBackColor := Color.FromArgb(240,240,240);
IntegralHeight := True;
Columns.Add('Default');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
AddItem('Item 4');
AddItem('Item 5');
end;
EndUpdate();
end
|
343
|
How can I change the background color for edit controls

with AxComboBox1 do
begin
BackColorEdit := Color.FromArgb(255,0,0);
IntegralHeight := True;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
TreeColumnIndex := 1;
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
h := AddItem('Root 1.1');
CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
ExpandItem[h] := True;
h := AddItem('Root 2.1');
CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
end;
set_Select(TObject(0),'Root 1.1');
end
|
216
|
How can I change the background color for all cells in the column

with AxComboBox1 do
begin
var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
with var_ConditionalFormat do
begin
BackColor := $ff;
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
end;
Columns.Add('Column');
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
358
|
How can I change the background color for a particular column

with AxComboBox1 do
begin
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
Add('Column 3');
end;
end
|
423
|
How can I change the background color for a particular column

with AxComboBox1 do
begin
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
Add('Column 3');
end;
end
|
408
|
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion

with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
FilterForVisible := True;
(GetOcx() as EXCOMBOBOXLib.ComboBox).FilterForBackColor := $1000000;
IntegralHeight := True;
Columns.Add('Default');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
AddItem('Item 4');
AddItem('Item 5');
end;
EndUpdate();
end
|
50
|
How can I change the "IsChecked/IsUnchecked" caption in the control's filter bar, when I filter for checked items

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
Filter := 0;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsChecked,'Check_On');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsUnchecked,'Check_Off');
ApplyFilter();
end
|
35
|
How can I change the "Filter For" caption in the column's drop down filter window

with AxComboBox1 do
begin
(Columns.Add('Column') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarFilterForCaption,'new caption');
end
|
49
|
How can I change the "Checked" caption in the drop down filter window, when I filter for checked items

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarChecked,'with check on');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarUnchecked,'with check off');
end
|
231
|
How can I change at runtime the parent of the item

with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Default');
with Items do
begin
hP := AddItem('Root');
hC := AddItem('Child');
SetParent(hC,hP);
end;
end
|
57
|
How can I can I select programmatically "Blanks/NonBlanks" option in the column's drop down filter

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exBlanks;
end;
ApplyFilter();
end
|
61
|
How can I can I programmatically filter the checked items

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
Filter := 0;
end;
Items.AddItem(TObject(0));
with Items do
begin
CellState[TObject(AddItem(TObject(1))),TObject(0)] := 1;
end;
Items.AddItem(TObject(2));
ApplyFilter();
end
|
62
|
How can I can I programmatically filter for items with a specified icon assigned

with AxComboBox1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exImage;
Filter := 1;
end;
with Items do
begin
CellImage[TObject(AddItem('Image 1')),TObject(0)] := 1;
CellImage[TObject(AddItem('Image 1')),TObject(0)] := 1;
CellImage[TObject(AddItem('Image 2')),TObject(0)] := 2;
CellImage[TObject(AddItem('Image 3')),TObject(0)] := 3;
end;
ApplyFilter();
end
|
60
|
How can I can I filter programmatically the items based on some numerichal rules

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exNumeric;
Filter := '> 0 <= 1';
end;
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
Items.AddItem(TObject(2));
ApplyFilter();
end
|
59
|
How can I can I filter programmatically the items based on a range/interval of dates

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterDate := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exDate;
Filter := '1/1/2001 to 1/1/2002';
end;
Items.AddItem('1/1/2001');
Items.AddItem('2/1/2002');
ApplyFilter();
end
|
58
|
How can I can I filter programmatically given a specified pattern using wild characters like * or

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := '0*';
end;
Items.AddItem(TObject(0));
Items.AddItem('00');
Items.AddItem(TObject(1));
Items.AddItem('11');
ApplyFilter();
end
|
555
|
How can I build a "virtual" tree using your control

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
procedure TWinForm1.AxComboBox1_BeforeExpandItem(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_BeforeExpandItemEvent);
begin
with AxComboBox1 do
begin
with Items do
begin
ItemHasChildren[InsertItem(e.item,Nil,'new')] := True;
end;
end
end;
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDown;
Columns.Add('Def');
with Items do
begin
AddItem('Item 1');
ItemHasChildren[AddItem('Item 2')] := True;
AddItem('Item 3');
end;
Value := 'Item 2';
EndUpdate();
end
|
363
|
How can I bold the items that contains data or those who displays empty strings

with AxComboBox1 do
begin
ConditionalFormats.Add('not len(%1)=0',Nil).Bold := True;
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
hC := InsertItem(h,Nil,'Child 2');
CellCaption[TObject(hC),TObject(1)] := '1';
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
211
|
How can I bold the entire column

with AxComboBox1 do
begin
var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
with var_ConditionalFormat do
begin
Bold := True;
ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
end;
Columns.Add('Column');
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
25
|
How can I bold only a portion of the column's header

with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<b>Col</b>umn 1';
end
|
269
|
How can I associate an extra data to a cell

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Cell 2';
CellData[TObject(h),TObject(1)] := 'your extra data';
end;
end
|
280
|
How can I assign multiple icons/pictures to a cell

with AxComboBox1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Columns.Add('Default');
with Items do
begin
h := AddItem('Root <img>1</img> 1, <img>2</img>, ... and so on ');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
end;
end
|
279
|
How can I assign multiple icons/pictures to a cell

with AxComboBox1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
CellImages[TObject(h),TObject(0)] := '1,2,3';
end;
end
|
282
|
How can I assign multiple icon/picture to a cell

with AxComboBox1 do
begin
set_HTMLPicture('p1','c:\exontrol\images\zipdisk.gif');
set_HTMLPicture('p2','c:\exontrol\images\auction.gif');
Columns.Add('Default');
with Items do
begin
h := AddItem('text <img>p1</img> another picture <img>p2</img> and so on');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
ItemHeight[h] := 48;
AddItem('Root 2');
end;
end
|
14
|
How can I assign checkboxes for the entire column

with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
Items.AddItem(TObject(2));
end
|
281
|
How can I assign an icon/picture to a cell

with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
ItemHeight[h] := 48;
AddItem('Root 2');
end;
end
|
278
|
How can I assign an icon/picture to a cell

with AxComboBox1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
CellImage[TObject(h),TObject(0)] := 1;
CellImage[TObject(InsertItem(h,Nil,'Child 1')),TObject(0)] := 2;
CellImage[TObject(InsertItem(h,Nil,'Child 2')),TObject(0)] := 3;
ExpandItem[h] := True;
end;
end
|
270
|
How can I assign a tooltip to a cell

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'tooltip';
CellToolTip[TObject(h),TObject(1)] := 'This is bit of text that''s shown when the user hovers the cell';
end;
end
|
274
|
How can I assign a radio button to a cell

with AxComboBox1 do
begin
MarkSearchColumn := False;
SelBackColor := Color.FromArgb(255,255,128);
SelForeColor := Color.FromArgb(0,0,0);
Columns.Add('C1');
Columns.Add('C2');
Columns.Add('C3');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Radio 1';
CellHasRadioButton[TObject(h),TObject(1)] := True;
CellRadioGroup[TObject(h),TObject(1)] := 1234;
CellCaption[TObject(h),TObject(2)] := 'Radio 2';
CellHasRadioButton[TObject(h),TObject(2)] := True;
CellRadioGroup[TObject(h),TObject(2)] := 1234;
CellState[TObject(h),TObject(1)] := 1;
end;
end
|
16
|
How can I assign a different background color for the entire column

with AxComboBox1 do
begin
MarkSearchColumn := False;
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellBackColor] := TObject(255);
Columns.Add('Column 2');
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
Items.AddItem(TObject(2));
end
|
272
|
How can I assign a checkbox to a cell

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Check Box';
CellHasCheckBox[TObject(h),TObject(1)] := True;
end;
end
|
15
|
How can I assign a check box for a cell

with AxComboBox1 do
begin
Columns.Add('Column 1');
with Items do
begin
AddItem(TObject(0));
CellHasCheckBox[TObject(AddItem(TObject(1))),TObject(0)] := True;
AddItem(TObject(2));
end;
end
|
30
|
How can I apply an strikeout font only a portion of the column's header

with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<s>Col</s>umn 1';
end
|
27
|
How can I apply an italic font only a portion of the column's header

with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<i>Col</i>umn 1';
end
|
353
|
How can I align the text/caption on the scroll bar

with AxComboBox1 do
begin
set_ScrollPartCaption(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLowerBackPart,'left');
set_ScrollPartCaptionAlignment(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLowerBackPart,EXCOMBOBOXLib.AlignmentEnum.LeftAlignment);
set_ScrollPartCaption(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exUpperBackPart,'right');
set_ScrollPartCaptionAlignment(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exUpperBackPart,EXCOMBOBOXLib.AlignmentEnum.RightAlignment);
ColumnAutoResize := False;
Columns.Add(1);
Columns.Add(2);
Columns.Add(3);
Columns.Add(4);
Columns.Add(5);
Columns.Add(6);
end
|
183
|
How can I align the icon in the column's header in the center

with AxComboBox1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (Columns.Add('') as EXCOMBOBOXLib.Column) do
begin
HeaderImage := 1;
HeaderImageAlignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
end;
end
|
177
|
How can I align the column to the right, and its caption too

with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
end;
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
176
|
How can I align the column to the right

with AxComboBox1 do
begin
(Columns.Add('Column') as EXCOMBOBOXLib.Column).Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
304
|
How can I align the cell to the left, center or to the right

with AxComboBox1 do
begin
TreeColumnIndex := -1;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
Columns.Add('Default');
with Items do
begin
CellHAlignment[TObject(AddItem('left')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.LeftAlignment;
CellHAlignment[TObject(AddItem('center')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
CellHAlignment[TObject(AddItem('right')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
end;
end
|
135
|
How can I add several columns to control's sort bar

with AxComboBox1 do
begin
SortBarVisible := True;
SortBarColumnWidth := 48;
(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
end
|
313
|
How can I add separator - dividers items

with AxComboBox1 do
begin
MarkSearchColumn := False;
TreeColumnIndex := -1;
ScrollBySingleLine := False;
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
h := AddItem(Nil);
ItemDivider[h] := 0;
ItemDividerLine[h] := EXCOMBOBOXLib.DividerLineEnum.DoubleDotLine;
ItemDividerLineAlignment[h] := EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter;
ItemHeight[h] := 6;
SelectableItem[h] := False;
h := AddItem('Cell 2');
CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
end;
end
|
226
|
How can I add or insert child items

with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'Cell 2';
CellCaption[TObject(InsertItem(h,Nil,'Cell 3')),TObject(1)] := 'Cell 4';
CellCaption[TObject(InsertItem(h,Nil,'Cell 5')),TObject(1)] := 'Cell 6';
ExpandItem[h] := True;
end;
end
|
223
|
How can I add or insert an item

with AxComboBox1 do
begin
Columns.Add('Default');
Items.AddItem('new item');
end
|
224
|
How can I add or insert an item

with AxComboBox1 do
begin
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
CellCaption[TObject(AddItem('Cell 1')),TObject(1)] := 'Cell 2';
h := AddItem('Cell 3');
CellCaption[TObject(h),TObject(1)] := 'Cell 4';
end;
end
|
225
|
How can I add or insert a child item

with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Default');
with Items do
begin
InsertItem(AddItem('root'),Nil,'child');
end;
end
|
464
|
How can I add or change the padding (spaces) for captions in the control's header

with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Padding-Left') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingLeft] := TObject(18);
with (Columns.Add('Padding-Right') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingRight] := TObject(18);
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
end;
EndUpdate();
end
|
3
|
How can I add multiple columns

with AxComboBox1 do
begin
with Columns do
begin
Add('Column 1');
Add('Column 2');
end;
end
|
465
|
How can I add a vertical padding

with AxComboBox1 do
begin
BeginUpdate();
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exAllLines;
with (Columns.Add('Padding') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(False);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingLeft] := TObject(6);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingRight] := TObject(6);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingTop] := TObject(6);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingBottom] := TObject(6);
end;
with Items do
begin
AddItem('padding');
AddItem('padding');
end;
EndUpdate();
end
|
1
|
How can I add a new column

with AxComboBox1 do
begin
Columns.Add('ColumnName');
end
|
454
|
How can I add a horizontal scroll bar

with AxComboBox1 do
begin
BeginUpdate();
ScrollBySingleLine := True;
ColumnAutoResize := False;
BackColorAlternate := Color.FromArgb(240,240,240);
with (Columns.Add('Default') as EXCOMBOBOXLib.Column) do
begin
Width := 512;
Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(False);
end;
with Items do
begin
AddItem('Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 199' +
'9. "eXontrol" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site' +
' where you can try or buy our products. If you are tired of looking for "powerful" components now it''s time to show you real com' +
'ponents. No registration required, no nag screens, no limitations, unlimited evaluation time.');
AddItem('A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing' +
' the user either to type a value directly into the control or choose from the list of existing options.');
end;
EndUpdate();
end
|
221
|
How can I access the properties of a column

with AxComboBox1 do
begin
Columns.Add('A');
Columns.Item['A'].HeaderBold := True;
end
|
595
|
Highlight the parent items

with AxComboBox1 do
begin
BeginUpdate();
ConditionalFormats.Add('%CC0',Nil).ForeColor := $ff;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
HeaderHeight := 24;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
with Columns do
begin
(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
Add('Desc');
end;
with Items do
begin
hR := AddItem('Root');
CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
h := InsertItem(hR,Nil,'Home');
CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
InsertItem(h,Nil,'Alice');
InsertItem(h,Nil,'Bob');
ExpandItem[h] := True;
h := InsertItem(hR,Nil,'Etc');
CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
h := InsertItem(h,Nil,'nginx.conf');
CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
ExpandItem[hR] := True;
end;
EndUpdate();
end
|
596
|
Highlight the leaf items

with AxComboBox1 do
begin
BeginUpdate();
ConditionalFormats.Add('%CC0=0',Nil).ForeColor := $808080;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
HeaderHeight := 24;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
with Columns do
begin
(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
Add('Desc');
end;
with Items do
begin
hR := AddItem('Root');
CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
h := InsertItem(hR,Nil,'Home');
CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
InsertItem(h,Nil,'Alice');
InsertItem(h,Nil,'Bob');
ExpandItem[h] := True;
h := InsertItem(hR,Nil,'Etc');
CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
h := InsertItem(h,Nil,'nginx.conf');
CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
ExpandItem[hR] := True;
end;
EndUpdate();
end
|
594
|
Highlight the item being expanded or collapsed

with AxComboBox1 do
begin
BeginUpdate();
ConditionalFormats.Add('%CX0',Nil).Bold := True;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
HeaderHeight := 24;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
with Columns do
begin
(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
Add('Desc');
end;
with Items do
begin
hR := AddItem('Root');
CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
h := InsertItem(hR,Nil,'Home');
CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
InsertItem(h,Nil,'Alice');
InsertItem(h,Nil,'Bob');
ExpandItem[h] := True;
h := InsertItem(hR,Nil,'Etc');
CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
h := InsertItem(h,Nil,'nginx.conf');
CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
ExpandItem[hR] := True;
end;
EndUpdate();
end
|
589
|
Force hover-all feature
with AxComboBox1 do
begin
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll,$ffffffff);
end
|
515
|
FilterBarCaption Predefined Keywords

// AfterExpandItem event - Fired after an item is expanded (collapsed).
procedure TWinForm1.AxComboBox1_AfterExpandItem(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_AfterExpandItemEvent);
begin
with AxComboBox1 do
begin
Refresh();
end
end;
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Check') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
h := AddItem('Item B');
CellState[TObject(InsertItem(h,Nil,'Sub-Item B1')),TObject(1)] := 1;
InsertItem(h,Nil,'Sub-Item B2');
ExpandItem[h] := True;
AddItem('Item C');
end;
FilterInclude := EXCOMBOBOXLib.FilterIncludeEnum.exItemsWithChilds;
FilterBarFont := (Font as stdole.StdFont);
FilterBarCaption := '`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i' +
'></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:' +
' ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><' +
'i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i' +
'></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80' +
'8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + ' +
'`</fgcolor>`';
FilterBarPromptPattern := 'B';
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item A|Item B';
end;
ApplyFilter();
EndUpdate();
end
|